home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / turtle-demo 4 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  520b  |  27 lines
  1. 1 REM TURTLE-DEMO: 'ALLEE'
  2. 2 REM N. HEUSLER 11.91
  3. 3 :
  4. 10 SYS49152
  5. 30 !GRAPHICS:!INIT
  6. 40 LA=6
  7. 45 BG=4.5:REM GROESSE DER BAEUME
  8. 50 DI=3:REM ABSTAND DER BAEUME
  9. 55 !PEN0:!MOVE100,198:!PEN1
  10. 60 GOSUB100
  11. 70 POKE198,.:WAIT198,1:POKE198,.
  12. 80 END
  13. 100 IFLA=0THENRETURN
  14. 110 LB=LA:GOSUB200
  15. 120 !PEN0:!TURNR45:!WALKBG*DI*LA:!TURNL45:!PEN1
  16. 130 !PUSHLA:LA=LA-1:GOSUB100:!PULLLA
  17. 140 RETURN
  18. 200 IFLB=0THENRETURN
  19. 210 !TURNL25:!WALKBG*LB
  20. 220 !PUSHLB:LB=LB-1:GOSUB200:!PULLLB
  21. 230 !BACKBG*LB:!TURNR50
  22. 240 !WALKBG*LB
  23. 250 !PUSHLB:LB=LB-1:GOSUB200:!PULLLB
  24. 260 !BACKBG*LB
  25. 270 !TURNL25
  26. 280 RETURN
  27.